100 CALL CHAR(96."1"):: ::CALL SCREEN(2):: FOR I=1 TO 28 :: CALL SPRITE(#I.96.1.96.128.RND*40-18.RND*40-18))::NEXT I
110 CALL MAGNIFY(1):: FOR I=1 TO 28:: CALL LOCATE(#I.85.120)::NEXT I::CALL MAGNIFY(2)::K=RND*14+2::FOR J=1 TO 28::CALL COLOR(#J.K)::NEXT J::GOTO 110